home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / atari / birkhahn-metafont-packed-disks / mf27-2_2e-disk2.zoo / inputs / filepict.lzs / PICEXMPL.MF < prev   
Text File  |  1989-03-09  |  660b  |  30 lines
  1. input filepict; % macros for reading in 'show'ed pictures
  2.  
  3. picture e[];
  4. e1 := beginpicture
  5.       row 2: | 4+ 5-
  6.       row 1: | 4+ 5-
  7.       row 0: | 3+ 4- 5+ 6-
  8.       endpicture;
  9. e2 := beginpicture
  10.       row 2: 4+ 5- 4+ 5- |
  11.       row 1: 4+ 5- 4+ 5- |
  12.       row 0: 3+ 6- 5+ 4- |
  13.       endpicture;
  14.  
  15. tracingall;
  16. message "e1, e2:";
  17. show e1, e2;
  18. message "e2 shifted(-2,-1):";
  19. show e2 shifted(-2,-1);
  20. addto e1 also e2 shifted(-2,-1);
  21. message "shifted e2 added to e1:";
  22. show e1;
  23. message "e1 shifted(-4,-1):";
  24. show e1 shifted(-4,-1);
  25. message "before assignment to e1!";
  26. e1:=e1 shifted(-4,-1);
  27. message "e1 after assignment:";
  28. show e1;
  29. end;
  30.